home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 7
/
Aminet 7 - August 1995.iso
/
Aminet
/
comm
/
mebbs
/
addquo.lha
/
addquotes
next >
Wrap
Text File
|
1994-05-27
|
2KB
|
113 lines
/**/
signal on ERROR
parse arg LineNumber
DoorName = "sigarexx"
if( ~show( 'l', "mebbsarexx.library" ) )then do
say "Opening mebbsarexx.library"
if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
say "Could not open library"
exit 10
end
end
call GetVar DoorName,LineNumber,1
username=result
call GetVar DoorName,LineNumber,4
city=result
call GetVar DoorName,LineNumber,8
gfx=result
call GetVar DoorName,LineNumber,11
calls=result
call GetVar DoorName,LineNumber,12
uploads=result
call GetVar DoorName,LineNumber,13
downloads=result
call GetVar DoorName,LineNumber,15
path=result
call GetVar DoorName,LineNumber,18
total_calls=result
call GetVar DoorName,LineNumber,17
all_calls=result
call GetVar DoorName,LineNumber,20
level=result
username=upper(username)
rname=space(username,1,'_')
ac=result
f =0
mainpath='T:'
a=0
lng=length(total_calls)
CLS = 'H'
RED ='
'
GRN ='
'
GREEN ='
'
YEL ='
'
BLU ='
'
VIO ='
'
WHT ='
'
BLA2 ='
'
RED2 ='
'
GRN2 ='
'
YEL2 ='
'
BLU2 ='
'
RESET ='
'
CYAN ='
'
BLUEY ='
'
RESET ='
'
ADDQUOTES:
call ReadFile DoorName,LineNumber,"DOORS:ADDQUOTES/ADDQUOTES.GR2"
call Message DoorName,LineNumber,"",1
call Message DoorName,LineNumber,"",1
call Message DoorName,LineNumber,yel||"Your Quote, Joke (whatever) will be automatically and randomnly",1
call Message DoorName,LineNumber,yel||"displayed publicly around the System. IE: On logout...",1
call Message DoorName,LineNumber,"",1
call Message DoorName,LineNumber,cyan||"Please enter your text on two lines below",1
call Prompt DoorName,LineNumber,">",70
quote1=result
call Prompt DoorName,LineNumber,">",70
quote2=result
quote3=""
write=" scribbles sensually:"
wpath="mebbsnet:quotes.bbs"
call Message DoorName,LineNumber,"",1
call Message DoorName,LineNumber,"Thankyou. Do you want this saving (Y/N)?",1
call HotKey DoorName,LineNumber,""
saveit=UPPER(result)
if saveit ~= 'Y' then call end_it
call open quote,(wpath), 'A'
call writeln quote,username||write
call writeln quote,quote1
call writeln quote,quote2
call writeln quote,quote3
call close quote
call Message DoorName,LineNumber,cls||cyan||"Your quote has been added to the file for all to see",1
call end_it
IOERR:
call Exit_Door DoorName,LineNumber
exit 10
ERROR:
call Exit_Door DoorName,LineNumber
exit 10
end_it:
call Exit_Door DoorName,LineNumber
exit 0